perm filename HBLINK.MAC[NET,GUE] blob
sn#016385 filedate 1972-12-16 generic text, type T, neo UTF8
00100 TITLE HBLINK - Program to blink the Halt light!!!
00200
00300 Flag= 16
00400 Clock= 17
00500 J= 1
00600 H= 2
00700
00800 RIM10B
00900 LOC 140-1
01000 <6> ; edit #.
01100
01200 ST.: Move [ jsr int ] ; set up interupt loc.
01300 Movem 42 ; channel 1.
01400 Move flag, [ 14000 ,, j ] ; init 2nd job.
01500 Movei clock, ↑D60 ; 60 jiffies=1sec.
01600 Move j, [ aoja j ] ; init regular job.
01700 Move h, [ halt @h ] ; init 'halt' job.
01800 Setz 0, ; init null job count.
01900 Cono apr, 203001 ; reset, clock on ch. 1
02000 Cono pi, 12177 ; turn on all channels.
02100
02200 Cono pi, 200 ; turn on pi.
02300 Jen @ .+1 ; go into user mode.
02400 Xwd 14000 , h ; (user i/o)
02500
02600 INT: 0 ; interupt routine.
02700 Cono apr, 3001 ; reset clock.
02800 Sosle clock ; count down. finished?
02900 Jen @ int ; no. go back.
03000 Exch flag, int ; yes. exhange jobs.
03100 Movei clock, ↑D60 ; reset counter.
03200 Jen @ int ; run 2nd job.
03300
03400 END ST. ; all done!